home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / tcp / ChatBox1_153.lha / ChatBox / Rexx / serv.cb < prev   
Text File  |  1996-04-20  |  2KB  |  53 lines
  1. /*) Server selector v1.0 for Grapevine 2.0
  2. \\\ Written by Josef Faulkner  (panther@gate.net) IRC: Arexx
  3. ///
  4. \\\ Requires WB3.0 or higher to run.  Bug me and ill make it work with 2.0
  5. ///
  6. \\\ Leaves the multiview window open until you close it.  Not sure
  7. /// how I can find out what copy of multiview it is to send an arexx
  8. \\\ command to close it.
  9. (*/
  10.  
  11. options results
  12.  
  13. if ~show('L','rexxsupport.library') then if ~addlib('rexxsupport.library',0,-30,0) then do
  14.     'echo You need rexxsupport.library version 30 or greater in libs:'
  15.     exit 10 
  16. end
  17.  
  18. addr=address()
  19. address value addr
  20. call delete('T:cb.servfile')
  21. CMD '/log t:cb.servfile'
  22. CMD '/links'
  23. call delay(500)
  24. CMD '/log close'
  25. call open(1,'t:cb.servfile',r)
  26. call delete('T:servfile.guide')
  27. call open(2,'t:servfile.guide',w)
  28. call writeln(2,'@database serverchoose')
  29. call writeln(2,'@node "Main" "Server Chooser for ChatBox"')
  30. call writeln(2,'@{b}Server Chooser for ChatBox@{ub}')
  31. call writeln(2,'by Josef Faulkner (panther@gate.net)')
  32. call writeln(2,'modified by Sami Itkonen (Sami.Itkonen@hut.fi)')
  33. call writeln(2,'')
  34. call writeln(2,'@{b}IRC Servers:@{ub}')
  35. do until eof(1)
  36.     text=readln(1)
  37.     if word(text,1)='[LINKS]>' then do
  38.         server=word(text,2)
  39.         if server~='*' then do
  40.             call writeln(2,'@{"'server'" rxs "address '''addr''' CMD ''/server 'server'''"}')
  41.         end
  42.     end
  43. end
  44. call close(1)
  45. call writeln(2,'@endnode')
  46. call close(2)
  47. address command 'multiview t:servfile.guide pubscreen ChatBox.1'
  48. /*    call delete('t:servfile.guide')*/
  49.  
  50. /*
  51. @{"foo.undernet.org" rxs "address GVREXX 'server foo.undernet.org'"} 
  52. */
  53.